From 5f11ada8363eeb09e10e985694935c5c6d5ad55a Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 16 Nov 2000 06:10:41 +0000 Subject: [PATCH] (ange-ftp-file-writable-p) (ange-ftp-file-readable-p, ange-ftp-file-executable-p): Bind ange-ftp-process-verbose to nil. --- lisp/net/ange-ftp.el | 29 ++++++++++++++++------------- 1 file changed, 16 insertions(+), 13 deletions(-) diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index d02f0577c45..a6b986ceba0 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -3373,23 +3373,26 @@ system TYPE.") (ange-ftp-real-file-newer-than-file-p f1 f2)))) (defun ange-ftp-file-writable-p (file) - (setq file (expand-file-name file)) - (if (ange-ftp-ftp-name file) - (or (file-exists-p file) ;guess here for speed - (file-directory-p (file-name-directory file))) - (ange-ftp-real-file-writable-p file))) + (let ((ange-ftp-process-verbose nil)) + (setq file (expand-file-name file)) + (if (ange-ftp-ftp-name file) + (or (file-exists-p file) ;guess here for speed + (file-directory-p (file-name-directory file))) + (ange-ftp-real-file-writable-p file)))) (defun ange-ftp-file-readable-p (file) - (setq file (expand-file-name file)) - (if (ange-ftp-ftp-name file) - (file-exists-p file) - (ange-ftp-real-file-readable-p file))) + (let ((ange-ftp-process-verbose nil)) + (setq file (expand-file-name file)) + (if (ange-ftp-ftp-name file) + (file-exists-p file) + (ange-ftp-real-file-readable-p file)))) (defun ange-ftp-file-executable-p (file) - (setq file (expand-file-name file)) - (if (ange-ftp-ftp-name file) - (file-exists-p file) - (ange-ftp-real-file-executable-p file))) + (let ((ange-ftp-process-verbose nil)) + (setq file (expand-file-name file)) + (if (ange-ftp-ftp-name file) + (file-exists-p file) + (ange-ftp-real-file-executable-p file)))) (defun ange-ftp-delete-file (file) (interactive "fDelete file: ") -- 2.30.2